home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl-5.003.tar.gz / perl-5.003.tar / perl-5.003 / t / io / print.t < prev    next >
Text File  |  1994-10-18  |  459b  |  33 lines
  1. #!./perl
  2.  
  3. # $RCSfile: print.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:32 $
  4.  
  5. print "1..16\n";
  6.  
  7. $foo = 'STDOUT';
  8. print $foo "ok 1\n";
  9.  
  10. print "ok 2\n","ok 3\n","ok 4\n";
  11. print STDOUT "ok 5\n";
  12.  
  13. open(foo,">-");
  14. print foo "ok 6\n";
  15.  
  16. printf "ok %d\n",7;
  17. printf("ok %d\n",8);
  18.  
  19. @a = ("ok %d%c",9,ord("\n"));
  20. printf @a;
  21.  
  22. $a[1] = 10;
  23. printf STDOUT @a;
  24.  
  25. $, = ' ';
  26. $\ = "\n";
  27.  
  28. print "ok","11";
  29.  
  30. @x = ("ok","12\nok","13\nok");
  31. @y = ("15\nok","16");
  32. print @x,"14\nok",@y;
  33.